home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / Morpion 1.0.0 / source / BaseGlobals.p next >
Encoding:
Text File  |  1993-11-29  |  758 b   |  45 lines  |  [TEXT/PJMM]
  1. unit BaseGlobals;
  2.  
  3. interface
  4.  
  5.     const
  6.         global_strh_id = 128;
  7.         save_changes_alert_id = -1;
  8.         fail_alert_id = -1;
  9.         fail_strh_id = -1;
  10.  
  11.         pref_name = 1;
  12.         pref_launch_str = 2;
  13.         help_menu_text = 3;
  14.         quiting_str = 4;
  15.         closing_str = 5;
  16.  
  17.     var
  18.         M_HM_Help_I: integer;
  19.         MH_Apple, MH_File, MH_Edit: menuHandle;
  20.         quitNow: boolean;
  21.  
  22.     function GetGlobalString (i: integer): str255;
  23.     procedure AlertUser (i: integer);
  24.  
  25. implementation
  26.  
  27.     function GetGlobalString (i: integer): str255;
  28.         var
  29.             s: str255;
  30.     begin
  31.         GetIndString(s, global_strh_id, i);
  32.         GetGlobalString := s;
  33.     end;
  34.  
  35.     procedure AlertUser (i: integer);
  36.         var
  37.             s: str255;
  38.             a: integer;
  39.     begin
  40.         GetIndString(s, fail_strh_id, i);
  41.         ParamText(s, '', '', '');
  42.         a := Alert(fail_alert_id, nil);
  43.     end;
  44.  
  45. end.